Attribute VB_Name = "Module2"
Public Function L_COUPTYPE(ByVal Par_COUPTYPE As String) As String

   Select Case Par_COUPTYPE
      Case ""
         L_COUPTYPE = ""
      Case "01"
         L_COUPTYPE = "Married"
      Case "02"
         L_COUPTYPE = "Premarital"
      Case "03"
         L_COUPTYPE = "Presexual"
      Case "04"
         L_COUPTYPE = "Sex Partner"
      Case "98"
         L_COUPTYPE = "N/A"
      Case Else
         L_COUPTYPE = "ERROR"
   End Select

End Function


